home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getscr1r / clswinex.cls < prev    next >
Text File  |  1999-09-06  |  7KB  |  247 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsWinExStyle"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. ' Name:     Windows Information Viewer
  19. ' Author:   Chong Long Choo
  20. ' Date:     06 September 1999
  21.  
  22. Private mvarWS_EX_DLGMODALFRAME As Boolean
  23. Private mvarWS_EX_NOPARENTNOTIFY As Boolean
  24. Private mvarWS_EX_TOPMOST As Boolean
  25. Private mvarWS_EX_ACCEPTFILES As Boolean
  26. Private mvarWS_EX_TRANSPARENT As Boolean
  27. Private mvarWS_EX_MDICHILD As Boolean
  28. Private mvarWS_EX_TOOLWINDOW As Boolean
  29. Private mvarWS_EX_WINDOWEDGE As Boolean
  30. Private mvarWS_EX_CLIENTEDGE As Boolean
  31. Private mvarWS_EX_CONTEXTHELP As Boolean
  32. Private mvarWS_EX_RIGHT As Boolean
  33. Private mvarWS_EX_LEFT As Boolean
  34. Private mvarWS_EX_RTLREADING As Boolean
  35. Private mvarWS_EX_LTRREADING As Boolean
  36. Private mvarWS_EX_LEFTSCROLLBAR As Boolean
  37. Private mvarWS_EX_RIGHTSCROLLBAR As Boolean
  38. Private mvarWS_EX_CONTROLPARENT As Boolean
  39. Private mvarWS_EX_STATICEDGE As Boolean
  40. Private mvarWS_EX_APPWINDOW As Boolean
  41. Private mvarWS_EX_OVERLAPPEDWINDOW As Boolean
  42. Private mvarWS_EX_PALETTEWINDOW As Boolean
  43. Private mvarWS_EX_LAYERED As Boolean
  44. Private mvarWS_EX_NOINHERITLAYOUT As Boolean
  45. Private mvarWS_EX_LAYOUTRTL As Boolean
  46. Private mvarWS_EX_NOACTIVATE As Boolean
  47.  
  48. Public Property Let WS_EX_NOACTIVATE(ByVal vData As Boolean)
  49.     mvarWS_EX_NOACTIVATE = vData
  50. End Property
  51.  
  52. Public Property Get WS_EX_NOACTIVATE() As Boolean
  53.     WS_EX_NOACTIVATE = mvarWS_EX_NOACTIVATE
  54. End Property
  55.  
  56. Public Property Let WS_EX_LAYOUTRTL(ByVal vData As Boolean)
  57.     mvarWS_EX_LAYOUTRTL = vData
  58. End Property
  59.  
  60. Public Property Get WS_EX_LAYOUTRTL() As Boolean
  61.     WS_EX_LAYOUTRTL = mvarWS_EX_LAYOUTRTL
  62. End Property
  63.  
  64. Public Property Let WS_EX_NOINHERITLAYOUT(ByVal vData As Boolean)
  65.     mvarWS_EX_NOINHERITLAYOUT = vData
  66. End Property
  67.  
  68. Public Property Get WS_EX_NOINHERITLAYOUT() As Boolean
  69.     WS_EX_NOINHERITLAYOUT = mvarWS_EX_NOINHERITLAYOUT
  70. End Property
  71.  
  72. Public Property Let WS_EX_LAYERED(ByVal vData As Boolean)
  73.     mvarWS_EX_LAYERED = vData
  74. End Property
  75.  
  76. Public Property Get WS_EX_LAYERED() As Boolean
  77.     WS_EX_LAYERED = mvarWS_EX_LAYERED
  78. End Property
  79.  
  80. Public Property Let WS_EX_PALETTEWINDOW(ByVal vData As Boolean)
  81.     mvarWS_EX_PALETTEWINDOW = vData
  82. End Property
  83.  
  84. Public Property Get WS_EX_PALETTEWINDOW() As Boolean
  85.     WS_EX_PALETTEWINDOW = mvarWS_EX_PALETTEWINDOW
  86. End Property
  87.  
  88. Public Property Let WS_EX_OVERLAPPEDWINDOW(ByVal vData As Boolean)
  89.     mvarWS_EX_OVERLAPPEDWINDOW = vData
  90. End Property
  91.  
  92. Public Property Get WS_EX_OVERLAPPEDWINDOW() As Boolean
  93.     WS_EX_OVERLAPPEDWINDOW = mvarWS_EX_OVERLAPPEDWINDOW
  94. End Property
  95.  
  96. Public Property Let WS_EX_APPWINDOW(ByVal vData As Boolean)
  97.     mvarWS_EX_APPWINDOW = vData
  98. End Property
  99.  
  100. Public Property Get WS_EX_APPWINDOW() As Boolean
  101.     WS_EX_APPWINDOW = mvarWS_EX_APPWINDOW
  102. End Property
  103.  
  104. Public Property Let WS_EX_STATICEDGE(ByVal vData As Boolean)
  105.     mvarWS_EX_STATICEDGE = vData
  106. End Property
  107.  
  108. Public Property Get WS_EX_STATICEDGE() As Boolean
  109.     WS_EX_STATICEDGE = mvarWS_EX_STATICEDGE
  110. End Property
  111.  
  112. Public Property Let WS_EX_CONTROLPARENT(ByVal vData As Boolean)
  113.     mvarWS_EX_CONTROLPARENT = vData
  114. End Property
  115.  
  116. Public Property Get WS_EX_CONTROLPARENT() As Boolean
  117.     WS_EX_CONTROLPARENT = mvarWS_EX_CONTROLPARENT
  118. End Property
  119.  
  120. Public Property Let WS_EX_RIGHTSCROLLBAR(ByVal vData As Boolean)
  121.     mvarWS_EX_RIGHTSCROLLBAR = vData
  122. End Property
  123.  
  124. Public Property Get WS_EX_RIGHTSCROLLBAR() As Boolean
  125.     WS_EX_RIGHTSCROLLBAR = mvarWS_EX_RIGHTSCROLLBAR
  126. End Property
  127.  
  128. Public Property Let WS_EX_LEFTSCROLLBAR(ByVal vData As Boolean)
  129.     mvarWS_EX_LEFTSCROLLBAR = vData
  130. End Property
  131.  
  132. Public Property Get WS_EX_LEFTSCROLLBAR() As Boolean
  133.     WS_EX_LEFTSCROLLBAR = mvarWS_EX_LEFTSCROLLBAR
  134. End Property
  135.  
  136. Public Property Let WS_EX_LTRREADING(ByVal vData As Boolean)
  137.     mvarWS_EX_LTRREADING = vData
  138. End Property
  139.  
  140. Public Property Get WS_EX_LTRREADING() As Boolean
  141.     WS_EX_LTRREADING = mvarWS_EX_LTRREADING
  142. End Property
  143.  
  144. Public Property Let WS_EX_RTLREADING(ByVal vData As Boolean)
  145.     mvarWS_EX_RTLREADING = vData
  146. End Property
  147.  
  148. Public Property Get WS_EX_RTLREADING() As Boolean
  149.     WS_EX_RTLREADING = mvarWS_EX_RTLREADING
  150. End Property
  151.  
  152. Public Property Let WS_EX_LEFT(ByVal vData As Boolean)
  153.     mvarWS_EX_LEFT = vData
  154. End Property
  155.  
  156. Public Property Get WS_EX_LEFT() As Boolean
  157.     WS_EX_LEFT = mvarWS_EX_LEFT
  158. End Property
  159.  
  160. Public Property Let WS_EX_RIGHT(ByVal vData As Boolean)
  161.     mvarWS_EX_RIGHT = vData
  162. End Property
  163.  
  164. Public Property Get WS_EX_RIGHT() As Boolean
  165.     WS_EX_RIGHT = mvarWS_EX_RIGHT
  166. End Property
  167.  
  168. Public Property Let WS_EX_CONTEXTHELP(ByVal vData As Boolean)
  169.     mvarWS_EX_CONTEXTHELP = vData
  170. End Property
  171.  
  172. Public Property Get WS_EX_CONTEXTHELP() As Boolean
  173.     WS_EX_CONTEXTHELP = mvarWS_EX_CONTEXTHELP
  174. End Property
  175.  
  176. Public Property Let WS_EX_CLIENTEDGE(ByVal vData As Boolean)
  177.     mvarWS_EX_CLIENTEDGE = vData
  178. End Property
  179.  
  180. Public Property Get WS_EX_CLIENTEDGE() As Boolean
  181.     WS_EX_CLIENTEDGE = mvarWS_EX_CLIENTEDGE
  182. End Property
  183.  
  184. Public Property Let WS_EX_WINDOWEDGE(ByVal vData As Boolean)
  185.     mvarWS_EX_WINDOWEDGE = vData
  186. End Property
  187.  
  188. Public Property Get WS_EX_WINDOWEDGE() As Boolean
  189.     WS_EX_WINDOWEDGE = mvarWS_EX_WINDOWEDGE
  190. End Property
  191.  
  192. Public Property Let WS_EX_TOOLWINDOW(ByVal vData As Boolean)
  193.     mvarWS_EX_TOOLWINDOW = vData
  194. End Property
  195.  
  196. Public Property Get WS_EX_TOOLWINDOW() As Boolean
  197.     WS_EX_TOOLWINDOW = mvarWS_EX_TOOLWINDOW
  198. End Property
  199.  
  200. Public Property Let WS_EX_MDICHILD(ByVal vData As Boolean)
  201.     mvarWS_EX_MDICHILD = vData
  202. End Property
  203.  
  204. Public Property Get WS_EX_MDICHILD() As Boolean
  205.     WS_EX_MDICHILD = mvarWS_EX_MDICHILD
  206. End Property
  207.  
  208. Public Property Let WS_EX_TRANSPARENT(ByVal vData As Boolean)
  209.     mvarWS_EX_TRANSPARENT = vData
  210. End Property
  211.  
  212. Public Property Get WS_EX_TRANSPARENT() As Boolean
  213.     WS_EX_TRANSPARENT = mvarWS_EX_TRANSPARENT
  214. End Property
  215.  
  216. Public Property Let WS_EX_ACCEPTFILES(ByVal vData As Boolean)
  217.     mvarWS_EX_ACCEPTFILES = vData
  218. End Property
  219.  
  220. Public Property Get WS_EX_ACCEPTFILES() As Boolean
  221.     WS_EX_ACCEPTFILES = mvarWS_EX_ACCEPTFILES
  222. End Property
  223.  
  224. Public Property Let WS_EX_TOPMOST(ByVal vData As Boolean)
  225.     mvarWS_EX_TOPMOST = vData
  226. End Property
  227.  
  228. Public Property Get WS_EX_TOPMOST() As Boolean
  229.     WS_EX_TOPMOST = mvarWS_EX_TOPMOST
  230. End Property
  231.  
  232. Public Property Let WS_EX_NOPARENTNOTIFY(ByVal vData As Boolean)
  233.     mvarWS_EX_NOPARENTNOTIFY = vData
  234. End Property
  235.  
  236. Public Property Get WS_EX_NOPARENTNOTIFY() As Boolean
  237.     WS_EX_NOPARENTNOTIFY = mvarWS_EX_NOPARENTNOTIFY
  238. End Property
  239.  
  240. Public Property Let WS_EX_DLGMODALFRAME(ByVal vData As Boolean)
  241.     mvarWS_EX_DLGMODALFRAME = vData
  242. End Property
  243.  
  244. Public Property Get WS_EX_DLGMODALFRAME() As Boolean
  245.     WS_EX_DLGMODALFRAME = mvarWS_EX_DLGMODALFRAME
  246. End Property
  247.